home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / CUGUK / PC_LIBS / C044.ZIP / VIDEO7.ZIP / VGAEXTRA.PAS < prev    next >
Pascal/Delphi Source File  |  1989-08-06  |  1KB  |  37 lines
  1. {***************************************}
  2. {  VGAEXTRA unit                        }
  3. {       Thomas Design                   }
  4. {       August 5,  1989                 }
  5. {***************************************}
  6.  
  7. unit VGAEXTRA;
  8. interface
  9.  
  10. type RGB = array[0..255,0..2] of byte;
  11.  
  12. procedure dacpalette(var Pal :RGB);
  13. procedure flashmodeon;
  14. procedure flashmodeoff;
  15.  
  16. implementation
  17. procedure flashmodeon;
  18. begin
  19.   inline($ba/$c4/$03/$b0/$01/$ee/$42/$ec/$0c/$20/$ee/$ba/$da/$03);
  20. end;
  21.  
  22. procedure flashmodeoff;
  23. begin
  24.   inline($ba/$c4/$03/$b0/$01/$ee/$42/$ec/$24/$df/$ee/$ba/$da/$03);
  25. end;
  26.  
  27. procedure dacpalette(var Pal : RGB);  { load all 256 DAC registers }
  28. begin
  29.    inline($1E/$C5/$76/<Pal/$BA/$C8/$03/$B0/$00/$EE/$42/$FA/$FC/$52
  30.          /$B9/$80/$01/$BA/$DA/$03/$EC/$24/$08/$75/$FB/$EC/$24/$08
  31.          /$74/$FB/$5A/$54/$58/$3B/$C4/$75/$18/$F3/$6E/$52/$B9/$80
  32.          /$01/$BA/$DA/$03/$EC/$24/$08/$75/$FB/$EC/$24/$08/$74/$FB
  33.          /$5A/$F3/$6E/$EB/$0D/$33/$C9/$AD/$EE/$8A/$C4/$EE/$AC/$EE
  34.          /$FE/$C1/$75/$F5/$FB/$1F);
  35. end;
  36. end.
  37.